home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mymem1 / mygp.frm < prev    next >
Text File  |  1995-05-08  |  5KB  |  187 lines
  1. VERSION 2.00
  2. Begin Form MyGp 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Games Played"
  5.    ClientHeight    =   4635
  6.    ClientLeft      =   1215
  7.    ClientTop       =   1560
  8.    ClientWidth     =   6015
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "MS Sans Serif"
  12.    FontSize        =   9.75
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   5040
  16.    Icon            =   0
  17.    Left            =   1155
  18.    LinkMode        =   1  'Source
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   4635
  23.    ScaleWidth      =   6015
  24.    Top             =   1215
  25.    Width           =   6135
  26.    Begin CommandButton PrintScoreCmd 
  27.       Caption         =   "Print Scores"
  28.       Height          =   375
  29.       Left            =   3240
  30.       TabIndex        =   3
  31.       Top             =   4200
  32.       Width           =   2655
  33.    End
  34.    Begin CommandButton ClearAllCmd 
  35.       Caption         =   "Clear All Scores"
  36.       Height          =   375
  37.       Left            =   120
  38.       TabIndex        =   2
  39.       Top             =   4200
  40.       Width           =   2655
  41.    End
  42.    Begin PictureBox PName 
  43.       FontBold        =   -1  'True
  44.       FontItalic      =   0   'False
  45.       FontName        =   "Courier"
  46.       FontSize        =   9.75
  47.       FontStrikethru  =   0   'False
  48.       FontUnderline   =   0   'False
  49.       Height          =   3615
  50.       Left            =   2520
  51.       ScaleHeight     =   3585
  52.       ScaleWidth      =   3345
  53.       TabIndex        =   9
  54.       TabStop         =   0   'False
  55.       Top             =   480
  56.       Width           =   3375
  57.    End
  58.    Begin PictureBox PScore 
  59.       FontBold        =   -1  'True
  60.       FontItalic      =   0   'False
  61.       FontName        =   "Courier"
  62.       FontSize        =   9.75
  63.       FontStrikethru  =   0   'False
  64.       FontUnderline   =   0   'False
  65.       Height          =   3615
  66.       Left            =   1440
  67.       ScaleHeight     =   3585
  68.       ScaleWidth      =   1065
  69.       TabIndex        =   8
  70.       TabStop         =   0   'False
  71.       Top             =   480
  72.       Width           =   1095
  73.    End
  74.    Begin PictureBox PGame 
  75.       FontBold        =   -1  'True
  76.       FontItalic      =   0   'False
  77.       FontName        =   "Courier"
  78.       FontSize        =   9.75
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       Height          =   3615
  82.       Left            =   120
  83.       ScaleHeight     =   3585
  84.       ScaleWidth      =   1305
  85.       TabIndex        =   7
  86.       TabStop         =   0   'False
  87.       Top             =   480
  88.       Width           =   1335
  89.    End
  90.    Begin CommandButton GPOK 
  91.       Caption         =   "OK"
  92.       Default         =   -1  'True
  93.       Height          =   375
  94.       Left            =   4680
  95.       TabIndex        =   0
  96.       Top             =   120
  97.       Width           =   1215
  98.    End
  99.    Begin CommandButton GPCancel 
  100.       Caption         =   "Cancel"
  101.       Height          =   375
  102.       Left            =   3360
  103.       TabIndex        =   1
  104.       Top             =   120
  105.       Width           =   1215
  106.    End
  107.    Begin Label Label1 
  108.       Caption         =   "Name"
  109.       Height          =   255
  110.       Index           =   2
  111.       Left            =   2520
  112.       TabIndex        =   6
  113.       Top             =   240
  114.       Width           =   735
  115.    End
  116.    Begin Label Label1 
  117.       Caption         =   "Score"
  118.       Height          =   255
  119.       Index           =   1
  120.       Left            =   1440
  121.       TabIndex        =   5
  122.       Top             =   240
  123.       Width           =   615
  124.    End
  125.    Begin Label Label1 
  126.       Caption         =   "Game"
  127.       Height          =   255
  128.       Index           =   0
  129.       Left            =   120
  130.       TabIndex        =   4
  131.       Top             =   240
  132.       Width           =   615
  133.    End
  134. End
  135. Dim SetClearScores As Integer
  136.  
  137. Sub ClearAllCmd_Click ()
  138.     
  139.     SetClearScores = True
  140.     
  141.     MyGp.PScore.Cls
  142.     MyGp.PName.Cls
  143.             
  144. End Sub
  145.  
  146. Sub Form_Load ()
  147.     SetClearScores = False
  148. End Sub
  149.  
  150. Sub GPCancel_Click ()
  151.     Unload MyGp
  152. End Sub
  153.  
  154. Sub GPOK_Click ()
  155.     If SetClearScores = True Then
  156.         ClearAllScores
  157.     End If
  158.     Unload MyGp
  159. End Sub
  160.  
  161. Sub PrintScoreCmd_Click ()
  162.     MyGp.MousePointer = HOURGLASS
  163.     Printer.Print
  164.     Printer.Print "Field Size";
  165.     Printer.Print Tab(15);
  166.     Printer.Print "Score";
  167.     Printer.Print Tab(25);
  168.     Printer.Print "Name"
  169.     Printer.Print
  170.     For I% = 0 To 5
  171.         For J% = 0 To 2
  172.             Printer.Print Str$((I% * 2) + 8) + " x" + Str$((J% * 2) + 6);
  173.             If ScoreArray(I%, J%) = NoScore Then
  174.                 Printer.Print
  175.             Else
  176.                 Printer.Print Tab(15);
  177.                 Printer.Print Str$(ScoreArray(I%, J%));
  178.                 Printer.Print Tab(25);
  179.                 Printer.Print " " + ScoreArrayName(I%, J%)
  180.             End If
  181.         Next J%
  182.     Next I%
  183.     Printer.EndDoc
  184.     MyGp.MousePointer = DEFAULT
  185. End Sub
  186.  
  187.